Profile of (eval 312)[Sub/Quote.pm:3]

Filename	(eval 312)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 21 statements in 239µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	11µs	31µs	JSON::Schema::Modern::::BEGIN@7 JSON::Schema::Modern::BEGIN@7
1	1	1	9µs	23µs	JSON::Schema::Modern::::short_circuit JSON::Schema::Modern::short_circuit
1	1	1	6µs	15µs	Method::Generate::Accessor::_Generated::BEGIN@24.164
1	1	1	5µs	5µs	Method::Generate::Accessor::_Generated::BEGIN@12.163

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
3	1	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4	1	0s			my $default_for_short_5fcircuit = ${$_[1]->{"\$default_for_short_5fcircuit"}};
5	1	1µs			my $isa_check_for_short_5fcircuit = ${$_[1]->{"\$isa_check_for_short_5fcircuit"}};
6					package JSON::Schema::Modern;
7	2	70µs	2	51µs	# spent 31µs (11+20) within JSON::Schema::Modern::BEGIN@7 which was called: # once (11µs+20µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 31µs making 1 call to JSON::Schema::Modern::BEGIN@7 # spent 20µs making 1 call to warnings::unimport
8					# spent 23µs (9+14) within JSON::Schema::Modern::short_circuit which was called: # once (9µs+14µs) by JSON::Schema::Modern::evaluate at line 353 of JSON/Schema/Modern.pm sub short_circuit {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 5µs within Method::Generate::Accessor::_Generated::BEGIN@12.163 which was called: # once (5µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	1µs			$^H = 1762;
14	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	3µs			%^H = (
16					);
17	1	48µs	1	5µs	} # spent 5µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.163
18					# END quote_sub PRELUDE
19	1	1µs			Carp::croak("short_circuit is a read-only accessor") if @_ > 1;
20					exists $_[0]->{"short_circuit"} ?
21					$_[0]->{"short_circuit"}
22	1	4µs			: do {
23	1	3µs	1	14µs	my $value = $default_for_short_5fcircuit->($_[0]); # spent 14µs making 1 call to JSON::Schema::Modern::__ANON__[JSON/Schema/Modern.pm:69]
24	5	99µs	2	24µs	# spent 15µs (6+9) within Method::Generate::Accessor::_Generated::BEGIN@24.164 which was called: # once (6µs+9µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_short_5fcircuit, "Bool", $value, "attribute_name","short_circuit","attribute_step","isa check","mgaca","0","varname","\$self->{\"short_circuit\"}"); $value }; # spent 15µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.164 # spent 9µs making 1 call to warnings::unimport
25	1	1µs			$_[0]->{"short_circuit"} = $value
26					}
27					}
28	1	1µs			$$_UNQUOTED = \&short_circuit;
29					}
30	1	5µs			1;
31
32					;